ISREDIT MACRO NOPROC (AWORD)                                            00010000
    CONTROL NOFLUSH NOPROMPT NOLIST NOMSG                               00020000
/*  CONTROL MSG LIST CONLIST SYMLIST                                    00030000
/*  ISPEXEC CONTROL ERRORS RETURN                                       00040000
ISREDIT PROCESS DEST                                                    00050000
SET &RC = &LASTCC                                                       00060000
IF &RC ^= 0 THEN +                                                      00070000
   DO                                                                   00080000
     SET &ZEDSMSG = &STR(SPECIFY DESTINATION   )                        00090000
     SET &ZEDLMSG = &STR()                                              00100000
     ISPEXEC SETMSG MSG(ISRZ000)                                        00110000
     EXIT CODE(8)                                                       00120000
   END                                                                  00130000
ISREDIT (BNUM) = LINENUM .ZDEST                                         00140000
SET &LNENUM = 1                                                         00150000
ISPEXEC VGET (&STR(LNE&LNENUM)) PROFILE                                 00160000
SET &RC = &LASTCC                                                       00170000
IF &RC ^= 0 THEN +                                                      00180000
   DO                                                                   00190000
     SET &ZEDSMSG = &STR(MUST CUT FIRST   )                             00200000
     SET &ZEDLMSG = &STR()                                              00210000
     ISPEXEC SETMSG MSG(ISRZ000)                                        00220000
     EXIT CODE(8)                                                       00230000
   END                                                                  00240000
DO WHILE &RC = 0                                                        00250000
    SET &ALINE = &&LNE&LNENUM                                           00260000
      ISREDIT LINE_AFTER &BNUM = &STR("&ALINE")                         00270000
    SET &BNUM = &BNUM + 1                                               00280000
    SET LNE&LNENUM = &Z                                                 00290000
    ISPEXEC VERASE (&STR(LNE&LNENUM)) BOTH                              00300000
    SET &LNENUM = &LNENUM + 1                                           00310000
    SET &LNELIT = &STR(LNE&LNENUM)                                      00320000
    ISPEXEC VGET (&STR(LNE&LNENUM)) PROFILE                             00330000
    SET &RC = &LASTCC                                                   00340000
END                                                                     00350000
STOP: +                                                                 00360000
END                                                                     00370000
    IF &STR(&ALINE) = &Z THEN +                                         00380000
    DO                                                                  00390000
      ISREDIT LINE_AFTER &BNUM = '   '                                  00400000
    END                                                                 00410000
    ELSE +                                                              00420000
    DO                                                                  00430000
    END                                                                 00440000
